home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette: Best of 1988
/
BESTOF88.D64
/
basic music.demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
324b
|
9 lines
10 poke56,160:poke55,0:clr:poke649,15:f$="basic music"
20 poke53280,15:poke53281,15:print"[147][155]load";chr$(34);f$;chr$(34);",8"
30 print" loading basic music"
40 print" one moment please[155]"
50 a$=chr$(13)+"r[213]"+chr$(13)+"l[207]"+chr$(34)+"f"+chr$(34)+",8"+chr$(13)+"r[213]"
55 a$=a$+chr$(13)
60 fori=1tolen(a$):poke630+i,asc(mid$(a$,i)):next:poke198,i-1
70 new